home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok49.lha / DME / .edrc next >
Text File  |  1993-08-15  |  9KB  |  289 lines
  1. #DME 1.45 resource file for Oberon
  2.  
  3. #Number of chars for tab
  4. set tabs 2
  5.  
  6. margin           70
  7. tabstop       $tabs
  8. pageset          90
  9.  
  10. topedge          11
  11. leftedge          3
  12. width           625
  13. height          168
  14.  
  15. map sc-nk1     (ping 1)
  16. map sc-nk2     (ping 2)
  17. map sc-nk3     (ping 3)
  18.  
  19. map  c-nk1     (pong 1)
  20. map  c-nk2     (pong 2)
  21. map  c-nk3     (pong 3)
  22.  
  23. map    f1       nexterr
  24. map  s-f1       preverr
  25. map    f2      (readerrs firsterr)
  26. map  s-f2       currenterr
  27. map    f3      (escimm (newfile `TXT\)
  28. map    f4      (newwindow f3)
  29. map    f5      (escimm (chfilename `))
  30. map  s-f5      (newwindow f5)
  31. map    f6      (f10 quit)
  32. map  s-f6      (bsave t:dme.print execute (run type t:dme.print to prt:))
  33. map    f7      (f10 execute (arun OMake -md \$OBProject pri -1))
  34. map  s-f7      (f10 execute (arun OMake -md \$OBProject.mod pri -1))
  35. map    f8       quit
  36. map    f9      (f10 iconify)
  37. map    f10     (if m saveold)
  38. map  A-help    (escimm (set name ) insline first (\$name) first pushmark block block ref bdelete popmark)
  39.  
  40. #CSI
  41. map  a-esc     ((›))
  42. #blue
  43. map  a-f1      (a-esc (30m))
  44. #white
  45. map  a-f2      (a-esc (31m))
  46. #black
  47. map  a-f3      (a-esc (32m))
  48. #red
  49. map  a-f4      (a-esc (33m))
  50. #reverse
  51. map  a-f5      (a-esc (41;30m))
  52. #normal
  53. map  a-f6      (a-esc (0m))
  54. #cls
  55. map  a-f7      (a-esc (0;0;H) a-esc (J))
  56. #del CSI
  57. map a-f8       (find () while c<>109 del del)
  58.  
  59. map  c-i       (ignorecase toggle)
  60. map  c-f       (escimm (find `))
  61. map  c-n        next
  62. map  c-p        prev
  63. map  c-r       (escimm (multireplace ))
  64. map sc-f       (escimm (findr ))
  65. map sc-n        nextr
  66. map sc-p        prevr
  67.  
  68. map  c-b       (toggle 9 if 9 unblock block)
  69. map  c-u       (resettoggle 9 unblock)
  70. map  c-e       (resettoggle 9 bdelete)
  71. map  c-m       (resettoggle 9 bmove)
  72. map  c-d        bcopy
  73. map sc-s       (goto block bsave t:dme.block execute (sort T:dme.block T:dme.sort) bdelete insfile T:dme.sort execute (delete T:dme.sort T:dme.block) resettoggle 9)
  74.  
  75. map    tab     (ifelse cb (goto block while cb (first repeat \$tabs (( )) down) goto block) (repeat tr (( ))))
  76. map  s-tab     (ifelse cb (goto block while cb (first repeat \$tabs (if c=32 del) down) goto block) (repeat tl left) )
  77. map  c-l       (escimm (insfile `))
  78. map  c-w       (escimm (bsave `))
  79.  
  80. map  s-bs      (left while !ca (del left) while ca (del left) right)
  81. map  s-del     (while !ca (ifelse r abort del) while ca del)
  82. map  c-bs      (while !l bs)
  83. map  c-del      remeol
  84.  
  85. map  c-o       (insertmode toggle)
  86. map  a-del     (insertmode on ( ) left insertmode off)
  87. map  c-j       (last join del)
  88. map  c-s       (-return up last)
  89. map  c-y        deline
  90. map sc-y        undeline
  91. map  c-x       (insline down first if !r (while !ca (up ( ) down)) up)
  92.  
  93. map sc-u        undo
  94. map  c-g       (escimm (goto ))
  95. map sc-w       (wordwrap toggle)
  96. map sc-r        reformat
  97. map sc-m       (escimm (margin ))
  98. map  c-help     ref
  99. map  c-\\      (escimm (execute `))
  100.  
  101. map    c-tab   (first while c=32 right c-bs up while c=32 (ifelse r (down abort) (down ( ) up)) down)
  102. map    return  (ifelse x=1 (insline down) (ifelse r (downadd first insline c-tab) (split down c-tab) ))
  103. map  s-return  (firstnb down)
  104. map    enter    return
  105. map  s-up       pageup
  106. map  s-down     pagedown
  107. map  s-left     wleft
  108. map  s-right    wright
  109. map  c-up       top
  110. map  c-down     bottom
  111. map  c-left     first
  112. map  c-right    last
  113. map  a-help    (pushmark unblock block block bsource popmark)
  114.  
  115. menuoff
  116.  
  117. menuadd  Project  (Load         F3 )   (arpload)
  118. menuadd  Project  (Load window  F4 )   (newwindow arpload)
  119. menuadd  Project  (-------------)      (null)
  120. menuadd  Project  (New Name     F5 )   (f5)
  121. menuadd  Project  (New Window s-F5 )   (s-f5)
  122. menuadd  Project  (------------- )     (null)
  123. menuadd  Project  (Print      s-F6 )   (s-f6)
  124. menuadd  Project  (Save Quit    F6 )   (f6)
  125. menuadd  Project  (Save As         )   (arpsave)
  126. menuadd  Project  (Quit         F8 )   (f8)
  127. menuadd  Project  (Iconify      F9 )   (f9)
  128. menuadd  Project  (Save         F10)   (f10)
  129.  
  130. menuadd  Search   (Ignore case c-i)    (c-i)
  131. menuadd  Search   (------------)       (null)
  132. menuadd  Search   (Find        c-f)    (c-f)
  133. menuadd  Search   (Find Next   c-n)    (c-n)
  134. menuadd  Search   (Find Prev.  c-p)    (c-p)
  135. menuadd  Search   (------------ )      (null)
  136. menuadd  Search   (Replace     c-r)    (c-r)
  137.  
  138. menuadd  Block    (Mark       c-b)      (c-b)
  139. menuadd  Block    (Unmark     c-u)      (c-u)
  140. menuadd  Block    (-----------)         (null)
  141. menuadd  Block    (Move       c-m)      (c-m)
  142. menuadd  Block    (Erase      c-e)      (c-e)
  143. menuadd  Block    (Duplicate  c-d)      (c-d)
  144. menuadd  Block    (Indent     tab)      (tab)
  145. menuadd  Block    (Backdent s-tab)      (s-tab)
  146. menuadd  Block    (----------- )        (null)
  147. menuadd  Block    (Load       c-l)      (arpinsfile)
  148. menuadd  Block    (Write      c-w)      (c-w)
  149. menuadd  Block    (Sort      sc-s)      (sc-s)
  150.  
  151. menuadd  Line     (Split   c-s)    (c-s)
  152. menuadd  Line     (Join    c-j)    (c-j)
  153. menuadd  Line     (Delete  c-y)    (c-y)
  154. menuadd  Line     (UnDel  sc-y)    (sc-y)
  155. menuadd  Line     (Insert  c-x)    (c-x)
  156. menuadd  Line     (Undo   sc-u)    (sc-u)
  157. menuadd  Line     (----------)     (null)
  158. menuadd  Line     (Top    c-cu)    (c-up)
  159. menuadd  Line     (End    c-cd)    (c-down)
  160.  
  161. menuadd  Misc     (Overwrite mode c-o)  (c-o)
  162. menuadd  Misc     (Goto           c-g)  (c-g)
  163. menuadd  Misc     (--------------)      (null)
  164. menuadd  Misc     (Wordwrap      sc-w)  (sc-w)
  165. menuadd  Misc     (Reformat      sc-r)  (sc-r)
  166. menuadd  Misc     (Margin        sc-m)  (sc-m)
  167. menuadd  Misc     (-------------- )     (null)
  168. menuadd  Misc     (Set mark 1   sc-nk1) (sc-nk1)
  169. menuadd  Misc     (Set mark 2   sc-nk2) (sc-nk2)
  170. menuadd  Misc     (Set mark 3   sc-nk3) (sc-nk3)
  171. menuadd  Misc     (Goto mark 1   c-nk1) (c-nk1)
  172. menuadd  Misc     (Goto mark 2   c-nk2) (c-nk2)
  173. menuadd  Misc     (Goto mark 3   c-nk3) (c-nk3)
  174. menuadd  Misc     (--------------  )    (null)
  175. menuadd  Misc     (Reference    c-help) (c-help)
  176. menuadd  Misc     (Cli command    c-\\) (c-\\)
  177.  
  178. menuadd  Colors   (Blue    a-f1) (a-f1)
  179. menuadd  Colors   (White   a-f2) (a-f2)
  180. menuadd  Colors   (Black   a-f3) (a-f3)
  181. menuadd  Colors   (Red     a-f4) (a-f4)
  182. menuadd  Colors   (Reverse a-f5) (a-f5)
  183. menuadd  Colors   (Normal  a-f6) (a-f6)
  184. menuadd  Colors   (Cls     a-f7) (a-f7)
  185.  
  186. menuadd  Errors   (Next error       F1) (f1)
  187. menuadd  Errors   (Previous error s-F1) (s-f1)
  188. menuadd  Errors   (Read errorfile   F2) (f2)
  189. menuadd  Errors   (Current error  s-F2) (s-f2)
  190. menuon
  191.  
  192. # Oberon special
  193.  
  194. errormode oberon
  195.  
  196. addpath OBERON:
  197.  
  198. map   -i ((i))
  199. map  s-i ((I))
  200. map   -a ((a))
  201. map  s-a ((A))
  202. map   -e ((e))
  203. map  s-e ((E))
  204.  
  205. map  a-k (firstnb `(* ' last right `*)' first down)
  206. map sa-k (up last findstr `(*' next del del del last bs bs bs firstnb down)
  207.  
  208. map  a-left  (findstr (PROCEDURE ) prev)
  209. map  a-right (findstr (PROCEDURE ) next)
  210.  
  211. map  a-9 ((()) left)
  212. map  a-0 ((();) left left)
  213.  
  214. map  a-a ((AND ))
  215. map  A-a ((ARRAY  OF ) wleft left)
  216. map sA-a ((e.ADDRESS;))
  217.  
  218. map  a-b ((BEGIN) -return)
  219. map  A-b ((BOOLEAN;))
  220.  
  221. map  a-c ((CASE  OF) -return (END; (* CASE *)) up last wleft left)
  222. map sa-c ((CONST) -return)
  223. map  A-c ((CHAR;))
  224. map sA-c ((ARRAY OF CHAR;))
  225.  
  226. map  a-d ((DIV ))
  227.  
  228. map  a-e ((ELSE))
  229. map sa-e ((EXIT;) left)
  230.  
  231. map  A-f ((FALSE))
  232.  
  233. map  a-h ((HALT(0);))
  234.  
  235. map  a-i ((IF  THEN) -return -return up up firstnb down down (END; (* IF *)) up up last wleft left)
  236. map sa-i ((IF  THEN END;) wleft wleft left)
  237.  
  238. map  A-i ((INTEGER;))
  239.  
  240. map  a-l ((LOOP) -return -return up up firstnb down down (END; (* LOOP *)) wleft up (  ))
  241. map  A-l ((LONGINT;))
  242.  
  243. map  a-m (escimm (set name ) (MODULE \$name;) return return (END \$name.) up first)
  244. map sa-m a-m
  245.  
  246. map  a-n ((NOT ))
  247. map  A-n ((NIL ))
  248.  
  249. map  a-o ((OF ))
  250. map sa-o ((OR ))
  251.  
  252. map  a-p (escimm (set name ) (PROCEDURE \$name();) -return (VAR) -return (BEGIN) -return -return up up firstnb down down (END \$name;) up up up up last left left)
  253. map sa-p ((IMPORT ;) left)
  254.  
  255. map  A-p ((POINTER TO ;) left)
  256.  
  257. map  a-r ((REPEAT) -return -return up up firstnb down down (UNTIL ;)left)
  258. map sa-r ((RETURN ;) left)
  259. map  A-r ((RECORD) -return -return up up last wleft down down (END;) firstnb up (  ))
  260. map sA-r ((REAL;))
  261.  
  262. map  a-t ((TYPE) -return)
  263. map  A-t ((TRUE))
  264.  
  265. map  a-v ((VAR) -return)
  266. map sa-v ((VAR ))
  267.  
  268. map  a-w ((WHILE  DO) -return -return up up firstnb down down (END; (* WHILE *)) up up last wleft left)
  269. map sa-w ((WITH  DO) -return -return up up firstnb down down (END; (* WITH *)) up up last wleft left)
  270.  
  271. map  A-s (((* ---------------------------------------------------------------- *)) first)
  272.  
  273. map   help (( := ;) left)
  274. map s-help (( := ))
  275.  
  276. #find bracket
  277. map   a-8 (ping 9 ifelse c=40 sca-2 (if c=41 sca-4))
  278.  
  279. #search right for open or close bracket
  280. map sca-1 (right if r (down first) while ca (right if r (down first)) ifelse c=41 () (ifelse c=40 () sca-1))
  281. #search close
  282. map sca-2 (sca-1 while c<>41 (if c=40 (sca-2 sca-1)))
  283.  
  284. #search left for open or close bracket
  285. map sca-3 (if !l left if l (up last) while ca (if l (up last) left) ifelse c=41 () (ifelse c=40 () sca-3))
  286. #search open
  287. map sca-4 (sca-3 while c<>40 (if c=41 (sca-4 sca-3)))
  288.  
  289.